home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / +super mister (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  3.1 KB  |  104 lines
  1. 10 v(0)=173:v(1)=2:v(2)=221:v(3)=9:v(4)=3:c=0:l=5:ad=36864
  2. 20 ifpeek(ad+c)<>v(c)then50
  3. 30 c=c+1:ifc<>lthen20
  4. 40 goto60
  5. 50 load"super mister",8,1
  6. 60 poke53281,0:poke53280,11
  7. 70 sys39890:gosub10000
  8. 80 sysd1,14,7,2,5
  9. 200 print"[147]":sysh1,2
  10. 210 fors=0to1:gosub10100:next
  11. 220 fora=0to11:sysl1,11-a,a+2,3:sysl1,47-a,a+2,3:next
  12. 230 sysn1,11,2,36,1,3:sysn1,0,13,36,1,3
  13. 240 syst1,18,0,0,16
  14. 250 m$="super":xx=4:yy=4:cc=2:gosub10200
  15. 260 fora=0to2:sysv1,a*16,0,2+a:next
  16. 300 print"[147]":sysh1,2:sysa1
  17. 310 sysn1,0,25,80,25,1
  18. 320 fora=1to20:x=-5+int(rnd(1)*90):y=int(rnd(1)*24)
  19. 330 sysn1,x,y,5,1,1:next
  20. 340 b=.5:fora=1to35:b=b*1.14
  21. 350 forc=0to1:x=-5+int(rnd(1)*90):y=b/2
  22. 360 sysn1,x,y+25,1+y/5,1+y/15,2:next
  23. 370 forc=0to0:x=-20+int(rnd(1)*100):y=25+b/2-b/1.8:s=b/1.8
  24. 380 syst1,x,y,1,s:nextc,a
  25. 390 sysi1,2,3:sysi1,2,0:sysk1,2
  26. 400 fora=127to16step-1:sysk1,2:sysu1,40-a*1.5,a/2.6,3,1,2,a:next
  27. 410 sysi1,peek(40933),3
  28. 420 sysn1,16,29,48,9,0:m$="mister":co=2:u=8:v=1.2:yy=30:gosub10300
  29. 430 sysc1,0,20,0
  30. 440 print"[153]super mister [146][156]: rescaling graphics"
  31. 450 print" on the commodore 64!"
  32. 460 print" 1990 by mark d. rejhon"
  33. 470 print"         ottawa, ontario, canada.":y=0
  34. 480 y=y+1:geta$:ifa$=""andy<600then480
  35. 490 sysa1:sp=1.3:gosub10400
  36. 500 fora=1to1000:next:print"[147]"
  37. 505 sysa1
  38. 510 sysd1,0,13,2,6:sysh1,3:yy=0:h=1
  39. 520 fory=1to14:xx=0:w=1:forx=1to17:sysn1,xx,yy,w,h,((y+x)and1)+2:xx=xx+int(w)
  40. 530 w=w+.5:next:yy=yy+int(h):h=h+.5:next:sysi1,3,0:sysk1,3
  41. 540 co=0:u=8:v=1.5:yy=4:m$="great":gosub10300:yy=5:xx=xx+1:co=1:gosub10310
  42. 550 co=0:yy=16:m$="3-d effect":gosub10300:yy=17:xx=xx+1:co=1:gosub10310
  43. 560 co=0:yy=28:u=8:m$="for games":gosub10300:yy=29:xx=xx+1:co=1:gosub10310
  44. 570 sp=1.5:gosub10400
  45. 9900 fora=0to3:sysg1,0:next:print"[150][147]":sysb1
  46. 9990 end
  47. 10000 read a1,b1,c1,d1,e1,f1,g1,h1,i1
  48. 10010 read j1,k1,l1,m1,n1,o1,p1,q1,r1
  49. 10020 read s1,t1,u1,v1,w1,x1:return
  50. 10100 sysh1,3
  51. 10110 fory=0to15:readl$:forx=0to15:sysl1,x,y,val(mid$(l$,x+1,1)):nextx,y
  52. 10120 sysv1,0,0,s:sysg1,3:return
  53. 10200 print""m$:fora=0tolen(m$)-1
  54. 10210 sysp1,xx+a*8,yy,peek(1024+a),8,cc:next:return
  55. 10300 poke646,peek(55296)or8:print""m$;:t=.5:xx=40-pos(.)*u/2:s=pos(.)/2
  56. 10310 forz=0topos(.)-1:ch=peek(1024+z)
  57. 10320 w=127:sysi1,2+notpeek(40933),3
  58. 10330 cc=int(w-u):x=xx-cc*s+int(w)*z:y=yy-cc*t:sysp1,x,y,ch,w,co
  59. 10340 sysk1,3:w=w/v:ifw>uthen10330
  60. 10350 ifw*v>uthenw=u:goto10330
  61. 10360 sysp1,xx+z*u,yy,ch,u,co:next:return
  62. 10400 q=16:sysn1,0,48,80,2,0
  63. 10410 fory=0to2:forx=0to4
  64. 10420 r=1:xs=x*q:ys=y*q:sysv1,xs,ys,5:sysn1,xs,ys,q,q,0
  65. 10430 sysi1,2+notpeek(40933),3
  66. 10440 r=r*sp:p=int(r):o=-p/2:syst1,o+xs+(2-x)*p,o+ys+(1-y)*p,5,p+q:sysk1,3
  67. 10450 ifr<110then10440
  68. 10460 nextx,y:return
  69. 30000 data37000,37018,37032,37300,37374,37402,37438,37484,37498,37578,37638
  70. 30010 data37654,37758,37858,38192,38330,38652,38718,38808,39052,39448,39712
  71. 30020 data39852,39890
  72. 40000 data 0000111111110000
  73. 40001 data 0000111111100000
  74. 40002 data 0001111111000000
  75. 40003 data 0001111110000000
  76. 40004 data 0011111100000000
  77. 40005 data 0011111000000000
  78. 40006 data 0111111111111000
  79. 40007 data 0111111111110000
  80. 40008 data 1111111111100000
  81. 40009 data 0000001111000000
  82. 40010 data 0000011110000000
  83. 40011 data 0000011100000000
  84. 40012 data 0000111000000000
  85. 40013 data 0000110000000000
  86. 40014 data 0001100000000000
  87. 40015 data 0001000000000000
  88. 40050 data 0000000220000000
  89. 40051 data 0000002332000000
  90. 40052 data 0000002332000220
  91. 40053 data 0000002332002332
  92. 40054 data 0000002332002332
  93. 40055 data 0220002332002332
  94. 40056 data 2332002333223332
  95. 40057 data 2332002333333332
  96. 40058 data 2332002333222220
  97. 40059 data 2333223332000000
  98. 40060 data 2333333332000000
  99. 40061 data 0222223332000000
  100. 40062 data 0000002332000000
  101. 40063 data 0000002332000000
  102. 40064 data 0000002332000000
  103. 40065 data 0000002332000000
  104.